home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / wb-enhancement / swazblanker / install < prev    next >
Text File  |  1996-02-26  |  28KB  |  754 lines

  1. ; $VER: SwazBlankerInstall 2.0 (17.9.95)
  2. ; Script to install release 2.12 SwazBlanker
  3.  
  4.  
  5. ; =======================================================================
  6. ;   Set up some variables
  7. ; =======================================================================
  8.  
  9. (set OSVersion        (/ (getversion) 65536))
  10. (set WBVersion        (/ (getversion "libs:version.library") 65536))
  11. (set AGVersion        (/ (getversion "libs:amigaguide.library") 65536))
  12. (set cpu            (database "cpu"))
  13. (set startup_added        0)
  14. (set key_installed        0)
  15. (set update        0)
  16. (set default-blankkey    "lalt z")
  17. (set default-popkey        "lalt b")
  18. (set programmer        0)
  19. (set usemoredata        0)
  20.  
  21. (if (exists "work:" (noreq))
  22.   (set @default-dest "work:")
  23.   (if (exists "bin:" (noreq))
  24.     (set @default-dest "bin:")
  25.     (set @default-dest "sys:")
  26.   )
  27. )
  28.  
  29.  
  30. ; =======================================================================
  31. ;   Set up localized strings
  32. ; =======================================================================
  33.  
  34. ; ==== Ask users language
  35. (set sel_lang
  36.     (askchoice
  37.         (prompt "Please select your language")
  38.         (help @askoptions-help)
  39.         (choices
  40.             "English"
  41. ;            "Suomi"
  42. ;            "Français"
  43.             "Deutsch"
  44. ;            "Norsk"
  45. ;            "Nederlands"
  46. ;            "Svenska"
  47. ;            "Dansk"
  48.             "Español"
  49. ;            "Italiano"
  50. ;            "Português"
  51.             "íslenska"
  52.         )
  53.         (default 0)
  54.     )
  55. )
  56.  
  57. (set @language
  58.     (select sel_lang
  59.         "English"
  60. ;        "Suomi"
  61. ;        "Français"
  62.         "Deutsch"
  63. ;        "Norsk"
  64. ;        "Nederlands"
  65. ;        "Svenska"
  66. ;        "Dansk"
  67.         "Español"
  68. ;        "Italiano"
  69. ;        "Português"
  70.         "íslenska"
  71.             ""
  72.     )
  73. )
  74.  
  75. ;
  76. ; ===== English
  77. ;
  78. (set #kickstart "\nERROR : BAD VERSION OF KICKSTART\n\nSwazBlanker requires KickStart %s (V%ld) or higher. It will not work on earlier versions.\nYou currently are running KickStart V%ld.\n\n%s")
  79. (set #welcome "       Welcome to the SwazBlanker installation\n\n          Copyright © 1995 David Swasbrook.\n                 All rights reserved.\n")
  80. (set #goodbye "SwazBlanker is SHAREWARE. If you use this program please register by sending $10 US ($20 NZ) to:\n\n")
  81. (set #continue "Continue with installation?")
  82. (set #aborted "Installation aborted!")
  83. (set #yes "Yes")
  84. (set #no "No")
  85. (set #installwarn "\nWARNING : SWAZBLANKER CURRENTLY INSTALLED\n\n")
  86. (set #olderinstalled "%sInstaller will upgrade SwazBlanker version %ld.%ld to SwazBlanker version %ld.%ld.\n\n%s")
  87. (set #sameinstalled "%sSwazBlanker version %ld.%ld is already installed!\n\n%s")
  88. (set #newerinstalled "%sInstaller has found a newer version (%ld.%ld) of SwazBlanker already installed.\n%s")
  89. (set #dir_prompt "Where should SwazBlanker be installed? A drawer named `SwazBlanker' will be created there.")
  90. (set #dir_help "A good place to install SwazBlanker is your WORK: partition or if it isn't available, the SYS: partition.\n\n")
  91. (set #nospace "\nWARNING : INSUFFICENT DISK SPACE\n\nThere is insufficient space on device %s: for a full installation of SwazBlanker.\n\nRequired space  : %ld Kb\nAvailable space : %ld Kb\n\n%s")
  92. (set #which-language "Which languages should be installed?\n\nEnglish is built in.")
  93. (set #which-help "A locale catalog will be installed to your system and all Executive programs will use the language you choose. If English is your native language, you don't have to install any locale catalogs because English has been built in the programs.\n\n")
  94. (set #programmer "\nInstall programming documentation?\n\nThis consists of : programming includes, documentation and some example blanker source code.")
  95. (set #programmer_help "This will install all the information you require to write a blanker module.\n\n")
  96. (set #moredata "\nInstall ALL blanker data files?\n\nDefault data files will be installed but there are additional data files that may contain material that is OFFENSIVE to some people, do you wish to install them?")
  97. (set #moredata_help "Please examine the data files.\n\n")
  98. (set #addcmds "The following instructions will be added to your \"S:User-Startup\" file so that your system will be properly configured to use SwazBlanker.\n\n")
  99. (set #addhelp "This will add some commands to your S:User-Startup file to allow the correct operation of SwazBlanker. SwazBlanker will be started every time you boot your Amiga.\n\n")
  100. (set #blankkey "\nPlease specify the key combination to blank the screen.")
  101. (set #blankkey_help "")
  102. (set #popkey "\nPlease specify the key combination to open the SwazBlanker interface. This should not be the same as you specified for the Blank Key.")
  103. (set #popkey_help "")
  104. (set #working_setup "Setup...")
  105. (set #working_kickstart "Checking Kickstart Version")
  106. (set #working_target "Finding install directory")
  107. (set #working_checkversion "Checking Previously Installed Version")
  108. (set #working_diskspace "Checking Disk Space")
  109. (set #working_main "Install SwazBlanker")
  110. (set #working_libs "Install Shared Libraries")
  111. (set #working_locale "Install Locale Catalogs")
  112. (set #working_gadgets "Install Gadget Classes")
  113. (set #working_blankers "Install Blanker Modules")
  114. (set #working_data "Install Standard Blanker Data Files")
  115. (set #working_moredata "Install Additional Blanker Data Files")
  116. (set #working_adddata "Install Additional Blanker Data Files")
  117. (set #working_docs "Install Documentation")
  118. (set #working_programmer "Install Programmer Files")
  119. (set #working_tooltypes "Modifying tool types")
  120. (set #working_startup "Modifying startup sequence")
  121. (set #working_fini "Finished!")
  122. (set #working_keyfile "Install keyfile")
  123. ;
  124. ; ===== Suomi
  125. ;
  126. ;(if (= @language "Suomi")
  127. ;(
  128. ;)) ; end of if statement
  129.  
  130. ;
  131. ; ===== Français
  132. ;
  133. ;(if (= @language "Français")
  134. ;(
  135. ;)) ; end of if statement
  136.  
  137. ;
  138. ; ===== Deutsch
  139. ;
  140. (if (= @language "Deutsch")
  141. (
  142. (set #kickstart "\nFEHLER : FALSCHE KICKSTART VERSION\n\nSwazBlanker benötigt mindestens KickStart %s (V%ld) oder höher. Unter früheren Kickstar Versionen arbeitet dieses Programm nicht.\nSie benutzen in Ihrem Rechner KickStart V%ld.\n\n%s")
  143. (set #welcome "       Willkommen zur SwazBlanker Installation\n\n          Copyright © 1995 David Swasbrook.\n               Alle Rechte vorbehalten.\n")
  144. (set #goodbye "SwazBlanker ist ein SHAREWARE-Programm. Wenn Sie dieses Programm benutzen, lassen Sie sich bitte registrieren, indem Sie 10US (20 NZ) an die folgende Adresse schicken:\n\n")
  145. (set #continue "Installation fortsetzen?")
  146. (set #aborted "Installation abgebrochen!")
  147. (set #yes "Ja")
  148. (set #no "Nein")
  149. (set #installwarn "\nWARNUNG : SWAZBLANKER IST SCHON INSTALLIERT\n\n")
  150. (set #olderinstalled "%sInstaller ändert die SwazBlanker Version %ld.%ld auf die SwazBlanker Version %ld.%ld ab.\n\n%s")
  151. (set #sameinstalled "%sSwazBlanker Version %ld.%ld ist schon installiert!\n\n%s")
  152. (set #newerinstalled "%sInstaller hat eine neuere, schon installierte Version (%ld.%ld) von SwazBlanker, gefunden.\n%s")
  153. (set #dir_prompt "Wo wollen Sie SwazBlanker installieren? Ein Verzeichnis mit dem Namen `SwazBlanker' wird erstellt.")
  154. (set #dir_help "Am besten wäre es, wenn SwazBlanker auf der WORK: Partition oder, falls diese nicht existiert, auf der SYS: Partition installiert wird.\n\n")
  155. (set #nospace "\nWARNUNG : NICHT GENÜGEND FREIER SPEICHERPLATZ\n\nEs ist nicht genügend Speicherplatz auf dem Gerät %s für eine Komplettinstallation von SwazBlanker frei.\n\nBenötigter Speicherplatz  : %ld Kb\nVorhandener Speicherplatz : %ld Kb\n\n%s")
  156. (set #which-language "Welche Sprachen sollen instaliert werden?\n\nEnglisch ist im Programm enthalten.")
  157. (set #which-help "Ein Sprachkatalog wird installiert und von allen Programmen benutzt wenn die entsprechende Sprache ausgewählt ist. Da Englisch im Programm enthalten ist, müssen keine Sprachkataloge installiert werden, wenn Sie Englisch \
  158. bevorzugen.\n\n")
  159. (set #programmer "\nSollen die Programmierunterlagen installiert werden?\n\nDiese bestehen aus : Include-Dateien, Dokumentation und einigen Beispielen zur Bildschirmschoner Programmierung.")
  160. (set #programmer_help "Es werden alle Informationen, die zum Schreiben eines Bildschirmschoner-Moduls benötigt werden, installiert.\n\n")
  161. (set #moredata "\nSollen ALLE Bildschirmschoner-Hilfsdateien installiert werden?\n\nSollen neben den Standard-Hilfsdateien zusätzlich Hilfsdateien installiert werden? Diese sind u.U. für manche Menschen abstoßend. Wollen Sie auch diese installieren?")
  162. (set #moredata_help "Bitte sehen Sie sich die Hilfsdateien an.\n\n")
  163. (set #addcmds "Damit Ihr System für die Benutzung von SwazBlanker richtig konfiguriert ist, werden folgenden Befehle an die Datei \"S:User-Startup\" gehängt.\n\n")
  164. (set #addhelp "Damit SwazBlanker einwandfrei arbeiten kann werden ein paar Befehle an die Datei S:User-Startup gehängt. SwazBlanker wird bei jedem Systemstart Ihres Amigas gestartet.\n\n")
  165. (set #blankkey "\nBitte geben Sie die Tastenkombination zum aktivieren des Bildschirmschonens an.")
  166. (set #blankkey_help "")
  167. (set #popkey "\nBitte geben Sie die Tastenkombination an, mit der die SwazBlanker Einstellungsoberfläche geöffnet werden soll. Diese sollte sich von dem Bildschirmschonen-Tastenbefehl unterscheiden.")
  168. (set #popkey_help "")
  169. (set #working_setup "Installation...")
  170. (set #working_kickstart "Überprüfe Kickstart Version")
  171. (set #working_target "Suche Installationsschublade")
  172. (set #working_checkversion "Überprüfe auf schon installierte Version")
  173. (set #working_diskspace "Überprüfe Diskettenkapazität")
  174. (set #working_main "Installiere SwazBlanker")
  175. (set #working_libs "Installiere Funktionsbibliotheken")
  176. (set #working_locale "Installiere übersetzte Kataloge")
  177. (set #working_gadgets "Installiere Gadget Klassen")
  178. (set #working_blankers "Installiere Bildschirmschoner-Module")
  179. (set #working_data "Installiere normale Modul-Informationsdateien")
  180. (set #working_moredata "Installiere zusätzliche Modul-Informationsdateien")
  181. (set #working_adddata "Installiere zusätzliche Modul-Informationsdateien")
  182. (set #working_docs "Installiere Dokumentation")
  183. (set #working_programmer "Installiere Zusatzdateien für Programmierer")
  184. (set #working_tooltypes "Verändere Merkmale")
  185. (set #working_startup "Verändere Startup Sequence")
  186. (set #working_fini "Fertig!")
  187. )) ; end of if statement
  188.  
  189. ;
  190. ; ===== Norsk
  191. ;
  192. ;(if (= @language "Norsk")
  193. ;(
  194. ;)) ; end of if statement
  195.  
  196. ;
  197. ; ===== Nederlands
  198. ;
  199. ;(if (= @language "Nederlands")
  200. ;(
  201. ;)) ; end of if statement
  202.  
  203. ;
  204. ; ===== Svenska
  205. ;
  206. ;(if (= @language "Svenska")
  207. ;(
  208. ;)) ; end of if statement
  209.  
  210. ;
  211. ; ===== Dansk
  212. ;
  213. ;(if (= @language "Dansk")
  214. ;(
  215. ;)) ; end of if statement
  216.  
  217. ;
  218. ; ===== Español
  219. ;
  220. (if (= @language "Español")
  221. (
  222.  
  223. (set #kickstart "\nERROR : VERSION DEL KICKSTART ERRONEA\n\nSwazBlanker necesita KickStart %s (V%ld) o mayor. No funcionará en versiones anteriores.\nEstás corriendo ahora KickStart V%ld.\n\n%s")
  224. (set #welcome "       Bienvenido a la instalación de SwazBlanker\n\n          Copyright © 1995 David Swasbrook.\n             Todos los derechos reservados.\n")
  225. (set #goodbye "SwazBlanker es SHAREWARE. Si usa este programa, por favor, registrese mandando $10 US ($20 NZ) a:\n\n")
  226. (set #continue "¿Continuar con la instalación ?")
  227. (set #aborted "¡Instalación abortada!")
  228. (set #yes "Si")
  229. (set #no "No")
  230. (set #installwarn "\nATENCION : SWAZBLANKER ACTUALMENTE INSTALADO\n\n")
  231. (set #olderinstalled "%sEl instalador actualizará SwazBlanker de la versión %ld.%ld a la %ld.%ld.\n\n%s")
  232. (set #sameinstalled "%s¡La versión de SwazBlanker %ld.%ld está actualmente instalada!\n\n%s")
  233. (set #newerinstalled "%sEl instalador ha encontrado una versión más reciente de SwazBlanker (%ld.%ld) ya instalada.\n%s")
  234. (set #dir_prompt "¿Dónde debe ser instalado SwazBlanker? Ahí será creado un cajón llamado `SwazBlanker'.")
  235. (set #dir_help "Un buen lugar donde instalar SwazBlanker es en la partición WORK:, o, si esta no está disponoble, en la partición SYS:.\n\n")
  236. (set #nospace "\nATENCIÓN : ESPACIO DE DISCO INSUFICIENTE\n\nNo hay espacio suficiente en el dispositivo %s: para una instalación completa de SwazBlanker.\n\nEspacio requerido : %ld Kb\nEspacio disponible : %ld Kb\n\n%s")
  237. (set #which-language "¿Qué languajes serán instalados?\n\nel inglés esta incluido.")
  238. (set #which-help "Un catálogo local será instalado en su sistema y todos los programas de Executive usarán el lenguaje que elijas. Si el inglés es tu lengua nativa, no tienes que instalar ningúno porque el inglés esta incluido en los programas.\n\n")
  239. (set #programmer "\n¿Instalar documentación para programadores?\n\nEsta consiste en: includes de programación, documentación y algún código fuente para un módulo salvapantallas.")
  240. (set #programmeróhelp "Esto instalará toda la información que requieras para hacer un módulo salvapantallas.\n\n")
  241. (set #moredata "\n¿Instalar TODOS los ficheros de datos de los salvapantallas?\n\nLos ficheros de datos por defecto serán instalados, pero hay ficheros de datos adicionales que pueden contener material que puede ser OFENSIVO para algunas personas, ¿quieres instalarlos?")
  242. (set #moredata_help "Por favor, examine los ficheros de datos.\n\n")
  243. (set #addcmds "Las siguientes instrucciones seran añadidas a tu fichero \"S:User-Startup\" para que tu sistema este configurado apropadamente para usar SwazBlanker.\n\n")
  244. (set #addhelp "Esto añadirá algunos comandos a tu fichero S:User-Startup para permitir el correcto funcionamiento de SwazBlanker. SwazBlanker entrará en funcionamiento cada ver que arranque su Amiga.\n\n")
  245. (set #blankkey "\nPor favor, especifique la combinación de teclas para salvar la pantalla.")
  246. (set #blankkey_help "")
  247. (set #popkey "\nPor favor, especifique la combinación de teclas para abrir la interface de SwazBlanker. No será la misma que la especificada para la Tecla de Salvado.")
  248. (set #popkey_help "")
  249. (set #working_setup "Setup...")
  250. (set #working_kickstart "Comprobando la Versión del Kickstart")
  251. (set #working_target "Buscando directorio de instalación")
  252. (set #working_checkversion "Comprobando Versiones Instaladas")
  253. (set #working_diskspace "Comprobando Espacio en el Disco")
  254. (set #working_main "Instalando SwazBlanker")
  255. (set #working_libs "Instalando Librarias Compartidas")
  256. (set #working_locale "Instalando Catálogos Locales")
  257. (set #working_gadgets "Instalando las Clases de  Gadgets")
  258. (set #working_blankers "Instalando Módulos Salvapantallas")
  259. (set #working_data "Instalando Ficheros Estándar de Datos de los Salvapantallas")
  260. (set #working_moredata "Instalando Ficheros de Datos Adicionales de los Salvapantallas")
  261. (set #working_adddata "Instalando Ficheros de Datos Adicionales de los Salvapantallas")
  262. (set #working_docs "Instalando Documentación")
  263. (set #working_programmer "Instalando Ficheros para Programadores")
  264. (set #working_tooltypes "Modificando Tipos de Herramienta")
  265. (set #working_startup "Modificando startup-sequence")
  266. (set #working_fini "¡Terminado!")
  267.  
  268. )) ; end of if statement
  269.  
  270. ;
  271. ; ===== Italiano
  272. ;
  273. ;(if (= @language "Italiano")
  274. ;(
  275. ;)) ; end of if statement
  276.  
  277. ;
  278. ; ===== Português
  279. ;
  280. ;(if (= @language "Português")
  281. ;(
  282. ;)) ; end of if statement
  283.  
  284. ;
  285. ; ===== íslenska
  286. ;
  287. (if (= @language "íslenska")
  288. (
  289. (set #kickstart "\nVILLA : Vitlaus útgáfa af KICKSTART\n\nSwazBlanker þarfnast kickstart útgáfu %s (V%ld) eða betra. Hann virkar ekki með fyrri útgáfum.\nÞú ert núna að nota Kickstart V%ld.\n\n%s")
  290. (set #welcome "       Velkominn í Swazblanker Innsetninguna\n\n          Copyright © 1995 David Swasbrook.\n                 All rights reserved.\n")
  291. (set #goodbye "SwazBlanker er SHAREWARE. Ef þú notar forritið vinsamlegast skráðu þig með þvi að senda $ 10 US ($20 NZ) til::\n\n")
  292. (set #continue "Halda áfram með innsetningu?")
  293. (set #aborted "Hætt var við innsetningu!")
  294. (set #yes "Já")
  295. (set #no "Nei")
  296. (set #installwarn "\nVIÐVÖRUN : SWAZBLANKER ER NÚ ÞEGAR INNSETTUR\n\n")
  297. (set #olderinstalled "%sInnsetning mun uppfæra Swazblanker útgáfu %ld.%ld til SwazBlanker útgáfu %ld.%ld.\n\n%s")
  298. (set #sameinstalled "%sSwazBlanker útgáfa %ld.%ld er nú þegar innsett!\n\n%s")
  299. (set #newerinstalled "%sInnsetning hefur fundið nýrri útgáfu (%ld.%ld) af SwazBlanker nú þegar innsetta.\n%s")
  300. (set #dir_prompt "Hvar á að innsetja Swazblanker? Skúffa undir heitinu `SwazBlanker' mun verða búin til þar.")
  301. (set #dir_help "Góður staður til þess að setja SwazBlanker er WORK: disk parturinn eða ef sá partur er ekki til SYS: disk parturinn.\n\n")
  302. (set #nospace "\nVIÐVÖRUN : ÓNÆGT DISK RÝMI\n\nEkki er nóg pláss á tæki %s: fyrir fulla innsetningu af SwazBlanker.\n\nRými sem þarf: %ld Kb\nRými tiltækt : %ld Kb\n\n%s")
  303. (set #which-language "Hvaða tungumál á að setja inn?\n\nEnska er innbyggð.")
  304. (set #which-help "Tungumálaskrár (catalogs) verða settar inn á kerfið.  Öll forrit munu nota tungumálið sem þú velur.  Ef enska er þitt tungumál, þarftu ekki að setja inn tungumálaskrár vegna þess að enska er innbyggð.\n\n")
  305. (set #programmer "\nSetja inn forritaraskjöl?\n\nÞessi skjöl samanstanda af: 'includes' fyrir forritara, skjölum um notkun þeirra og nokkrum smá forritum sem sýna noktun þeirra.")
  306. (set #programmer_help "Þetta mun setja inn allar þær upplýsingar sem þú þarf til að búa til eigin hvílir.\n\n")
  307. (set #moredata "\nSetja inn ALLAR data skrár?\n\nVenjulegar data skrár eru alltaf settar inn en sumar data skrár gætu verið móðgandi fyrir sumt fólk, viltu setja þær inn?")
  308. (set #moredata_help "Vinsamlegast skoðaðu data skrárnar.\n\n")
  309. (set #addcmds "Eftirfarandi skipunum verður bætt við \"S:User-Startup\" skránna þína svo að kerfið verði tilbúið til að nota SwazBlanker.\n\n")
  310. (set #addhelp "Þetta mun bæta við skipunum í S:User-Startup skránna til að tryggja að Swazblanker virki. SwazBlanker verður settur í gang í hvert sinn sem þú ræsir Amiguna þína.\n\n")
  311. (set #blankkey "\nVinsamlegast settu inn lyklasamsetninguna sem þú vilt nota til að hvíla skjáinn ")
  312. (set #blankkey_help "")
  313. (set #popkey "\nVinsamlegast settu inn lyklasamsetninguna sem þú vilt nota til þess að opna Swazblanker stillinga gluggann.  Þetta ætti ekki að vera sami lykill og var valinn fyrir gangsetningu Swazblanker.")
  314. (set #popkey_help "")
  315. (set #working_setup "Uppsetning...")
  316. (set #working_kickstart "Athuga Kickstart útgáfu")
  317. (set #working_target "Leita innsetningar skúffunar")
  318. (set #working_checkversion "Leita að fyrri uppsetningum")
  319. (set #working_diskspace "Athuga disk rými")
  320. (set #working_main "Setja inn Swazblanker")
  321. (set #working_libs "Setja inn notuð Libraries")
  322. (set #working_locale "Setja inn tungumálaskrár")
  323. (set #working_gadgets "Setja inn Gadget Classes")
  324. (set #working_blankers "Setja inn hvíla")
  325. (set #working_data "Setja inn hefðbundar data skrár")
  326. (set #working_moredata "Setja inn auka data skrár")
  327. (set #working_adddata "Setja inn auka data skrár")
  328. (set #working_docs "Setja inn upplýsingaskjöl")
  329. (set #working_programmer "Setja inn forritaraskrár")
  330. (set #working_tooltypes "Breyta tól týpum")
  331. (set #working_startup "Breyta startup-sequence")
  332. (set #working_fini "Búinn!")
  333. )) ; end of if statement
  334.  
  335.  
  336.  
  337.  
  338. ; =======================================================================
  339. ;   Initialization
  340. ; =======================================================================
  341.  
  342. ; ===== Make sure that we are running under the correct version of kickstart
  343. (complete 0)(working #working_kickstart)
  344. (set #minver-text (cat "3.0") )
  345. (set minver 39)
  346.  
  347. (if (< OSVersion minver)
  348.     (
  349.     (set warning (#kickstart #minver-text minver OSVersion #aborted) )
  350.     (abort warning)
  351.     )
  352. )
  353.  
  354. ; ===== Set up an error cleanup routine
  355. (onerror
  356.     (makeassign "SwazBlanker" (safe))
  357. ) ; end of onerror statement
  358.  
  359. (welcome #welcome)
  360.  
  361. ; =======================================================================
  362. ;   Begin installation
  363. ; =======================================================================
  364.  
  365. (complete 1)(working #working_target)
  366. ; =======================================================================
  367. ;   Get the target path
  368. ; =======================================================================
  369.  
  370. (set vernum (getversion "SwazBlanker" ))
  371. (set ver (/ vernum 65536))
  372. (set rev (- vernum (* ver 65536)))
  373.  
  374. (if (= 1 (exists "Programmer/c/GetSwazBlankerVar") )
  375. (
  376.     (run "Programmer/c/GetSwazBlankerVar NOLF SWAZBLANKERHOME >ENV:SWAZBLANKERHOME")
  377.     (set target (getenv "SWAZBLANKERHOME"))
  378. )
  379. (set target "")
  380. )
  381.  
  382. (if (= "" target)
  383. (set target
  384.     (tackon
  385.         (askdir
  386.             (prompt #dir_prompt)
  387.             (help #dir_help @askdir-help)
  388.             (default @default-dest)
  389.         )
  390.         "SwazBlanker"
  391.     )
  392. ))
  393.  
  394. (if (= 0 (exists target (noreq)))
  395.     (makedir target (infos) )
  396. )
  397.  
  398. (makeassign "SwazBlanker" target (safe))
  399.  
  400. (complete 2)
  401. ; =======================================================================
  402. ;   Check for installed version
  403. ; =======================================================================
  404.  
  405. (if (exists "SwazBlanker:SwazBlanker" (noreq) )
  406. (
  407.     (working #working_checkversion)
  408.     (set oldvernum (getversion (tackon target "SwazBlanker") ))
  409.     (set oldver (/ oldvernum 65536))
  410.     (set oldrev (- oldvernum (* ver 65536) ) )
  411.  
  412.     (if (= vernum oldvernum)
  413.       (
  414.         (if (< @user-level 1) (
  415.           (set warning (#sameinstalled #installwarn ver rev #aborted) )
  416.           (abort warning)
  417.         ))
  418.         
  419.         (set warning (#sameinstalled #installwarn ver rev #continue) )
  420.         (message warning)
  421.       )
  422.       (
  423.         (if (> vernum oldvernum)
  424.           (
  425.             (set warning (#olderinstalled #installwarn oldver oldrev ver rev #continue))
  426.             (message warning)
  427.           )
  428.           (
  429.             (set warning (#newerinstalled #installwarn oldver oldrev #aborted))
  430.             (abort warning)
  431.           )
  432.         )
  433.       )
  434.     )
  435. ))
  436.  
  437.  
  438. (complete 5)(working #working_diskspace)
  439. ; =======================================================================
  440. ;   Check the disk space
  441. ; =======================================================================
  442.  
  443. (set minspace 1000)
  444.  
  445. (set devname (getdevice "SwazBlanker:"))
  446.  
  447. (if (NOT (= "RAM"  devname) )    (
  448.     (set space (/ (getdiskspace (cat devname ":")) 1024) )
  449.     (if (> minspace space) (
  450.         (if (< @user-level 1) (
  451.             (set warning (#nospace devname minspace space #aborted) )
  452.             (abort warning)
  453.         ))
  454.         (set warning (#nospace devname minspace space #continue) )
  455.         (message warning)
  456.     ))
  457. ))
  458.  
  459.  
  460. (complete 7)(working #working_setup)
  461. ; =======================================================================
  462. ;   Setup Options
  463. ; =======================================================================
  464. (set theblankkey
  465. (askstring (prompt #blankkey) (help #blankkey_help) (default default-blankkey)
  466. ))
  467.  
  468. (complete 9)
  469. (set thepopkey
  470. (askstring (prompt #popkey) (help #popkey_help) (default default-popkey)
  471. ))
  472.  
  473. (complete 11)
  474. (if (> @user-level 1)
  475.     (set usemoredata (askbool
  476.         (prompt #moredata)
  477.         (help #moredata_help)
  478.         (choices #yes #no)
  479.         (default 0)
  480.         )
  481.     )
  482. )
  483.  
  484. (complete 13)
  485. (if (= 2 (exists "SwazBlanker:Programmer") )
  486.     (set programmer (askbool
  487.         (prompt #programmer)
  488.         (help #programmer_help)
  489.         (choices #yes #no)
  490.         (default 1)
  491.         )
  492.     )
  493. )
  494.  
  495.  
  496. (complete 15)(working #working_locale)
  497. ; =======================================================================
  498. ;   Locale
  499. ; =======================================================================
  500.  
  501. ; Default language is English
  502. (set lang "English")
  503. (if (= @language "Suomi")
  504.     (set lang "Suomi") )
  505. (if (= @language "Français")
  506.     (set lang "Français") )
  507. (if (= @language "Deutsch")
  508.     (set lang "Deutsch") )
  509. (if (= @language "Norsk")
  510.     (set lang "Norsk") )
  511. (if (= @language "Nederlands")
  512.     (set lang "Nederlands") )
  513. (if (= @language "Svenska")
  514.     (set lang "Svenska") )
  515. (if (= @language "Dansk")
  516.     (set lang "Dansk") )
  517. (if (= @language "Español")
  518.     (set lang "Español") )
  519. (if (= @language "Italiano")
  520.     (set lang "Italiano") )
  521. (if (= @language "Português")
  522.     (set lang "Português") )
  523. (if (= @language "íslenska")
  524.     (set lang "íslenska") )
  525.  
  526.  
  527. (if (= lang "English")
  528. (
  529.     ; Ask language
  530.     (set sel_lang
  531.         (askoptions
  532.             (prompt #which-language)
  533.             (help #which-help @askoptions-help)
  534.             (choices
  535.                 "suomi"
  536. ;                "Français"
  537.                 "Deutsch"
  538. ;                "Norsk"
  539. ;                "Nederlands"
  540. ;                "Svenska"
  541. ;                "Dansk"
  542.                 "Español"
  543. ;                "Italiano"
  544. ;                "Português"
  545.                 "íslenska"
  546.             )
  547.             (default 0)
  548.         )
  549.     )
  550.     (set n 0)
  551.  
  552.     (while
  553.         (set language
  554.             (select n
  555.                 "suomi"
  556. ;                "Français"
  557.                 "Deutsch"
  558. ;                "Norsk"
  559. ;                "Nederlands"
  560. ;                "Svenska"
  561. ;                "Dansk"
  562.                 "Español"
  563. ;                "Italiano"
  564. ;                "Português"
  565.                 "íslenska"
  566.                 ""
  567.             )
  568.         )
  569.         ((if (IN sel_lang n)
  570.         (
  571.             (
  572.                 (if (= 0 (exists "SwazBlanker:Catalogs") )
  573.                 (makedir "SwazBlanker:Catalogs")
  574.                 )
  575.  
  576.                 (makedir (cat "SwazBlanker:Catalogs/" language))
  577.                 (copyfiles
  578.                     (source (cat "Catalogs/" language))
  579.                     (dest ("SwazBlanker:Catalogs/%s" language))
  580.                     (all)
  581.                 )
  582.             )
  583.         )) ; end of if statement
  584.  
  585.         (set n (+ n 1))
  586.     )) ; end of while statement
  587. )
  588. (
  589.     ; Language is known, just install
  590.  
  591.     (if (= 0 (exists "SwazBlanker:Catalogs") )
  592.     (makedir "SwazBlanker:Catalogs")
  593.     )
  594.  
  595.     (makedir (cat "SwazBlanker:Catalogs/" language))
  596.     (copyfiles
  597.         (source (cat "Catalogs/" language))
  598.         (dest ("SwazBlanker:Catalogs/%s" language))
  599.         (all)
  600.     )
  601. )) ; end of if statement
  602.  
  603.  
  604. (complete 25)(working #working_main)            ; ===== Install main application
  605.  
  606. (run "Copy SwazBlanker SwazBlanker.info SwazBlanker: >NIL:" )
  607.  
  608.  
  609.  
  610. (complete 30)(working #working_libs)            ; ===== Install libs
  611.  
  612. (copylib
  613.     (prompt "SwazBlanker.Library")
  614.     (help "Help")
  615.     (source "libs/swazblanker.library")
  616.     (dest "libs:")
  617.     (confirm)
  618. )
  619.  
  620. (copylib
  621.     (prompt "Matrix.Library")
  622.     (help "Help")
  623.     (source "libs/matrix.library")
  624.     (dest "libs:")
  625.     (confirm)
  626. )
  627.  
  628. (copylib
  629.     (prompt "SwazConfig.Library")
  630.     (help "Help")
  631.     (source "libs/swazconfig.library")
  632.     (dest "libs:")
  633.     (confirm)
  634. )
  635.  
  636. (copylib
  637.     (prompt "SysInfo.Library")
  638.     (help "Help")
  639.     (source "libs/sysinfo.library")
  640.     (dest "libs:")
  641.     (confirm)
  642. )
  643.  
  644.  
  645.  
  646.  
  647. (complete 35)(working #working_gadgets)            ; ===== Install Gadget Classes
  648.  
  649. (run "Copy Gadgets/#? SYS:Classes/Gadgets/ >NIL:" )
  650.  
  651.  
  652.  
  653. (complete 40)(working #working_blankers)        ; ===== Install blanker modules
  654.  
  655. (if (= 0 (exists "SwazBlanker:Blankers") )
  656.     (
  657.     (makedir "SwazBlanker:Blankers" (infos) )
  658.     (run "Copy Blankers.info SwazBlanker:Blankers.info >NIL:" )
  659.     (tooltype    (dest "SwazBlanker:Blankers") (noposition) )
  660.     )
  661. )
  662. (run "Copy Blankers/#? SwazBlanker:Blankers >NIL:" )
  663.  
  664.  
  665.  
  666.  
  667. (complete 60)(working #working_data)            ; ===== Install data files
  668.  
  669. (if (= 0 (exists "SwazBlanker:Blankers/Data") )
  670.     (makedir "SwazBlanker:Blankers/Data" (infos) )
  671. )
  672. (run "Copy ALL Blankers/Data/#? SwazBlanker:Blankers/Data >NIL:" )
  673.  
  674. (complete 65)(working #working_moredata)        ; ===== Install more data files
  675.  
  676.  
  677. (if (= 1 usemoredata)
  678.     (run "Copy ALL MoreBlankerData/#? SwazBlanker:Blankers/Data >NIL:")
  679. )
  680.  
  681.  
  682.  
  683. (complete 70)(working #working_docs)            ; ===== Install documentation
  684.  
  685. (if (= 0 (exists "SwazBlanker:Documentation") )
  686.     (
  687.     (makedir "SwazBlanker:Documentation" (infos) )
  688.     (run "Copy Documentation.info SwazBlanker:Documentation.info >NIL:" )
  689.     (tooltype    (dest "SwazBlanker:Documentation") (noposition) )
  690.     )
  691. )
  692.  
  693. (run "Copy ALL Documentation/#? SwazBlanker:Documentation >NIL:" )
  694.  
  695. (complete 85)(working #working_programmer)        ; ===== Install programming documentation
  696.  
  697. (if (= 1 programmer)
  698.     (
  699.         (if (= 0 (exists "SwazBlanker:Programmer") )
  700.             (
  701.             (makedir "SwazBlanker:Programmer" (infos) )
  702.             (run "Copy Programmer.info SwazBlanker:Programmer.info >NIL:" )
  703.             (tooltype    (dest "SwazBlanker:Programmer") (noposition) )
  704.             )
  705.         )
  706.  
  707.         (run "Copy ALL Programmer/#? SwazBlanker:Programmer/ >NIL:" )
  708.     )
  709. )
  710.  
  711.  
  712.  
  713.  
  714. (complete 95)(working #working_tooltypes)        ; ===== Change icon tool types
  715.  
  716. (tooltype    (dest "SwazBlanker:SwazBlanker")
  717.     (settooltype "BLANKKEY" theblankkey )
  718.     (settooltype "CX_POPKEY" thepopkey )
  719.     (settooltype "CX_POPUP" "NO" )
  720.     (settooltype "CX_PRI" "0" )
  721.     (settooltype "DELETABLEMODULES" "NO" )
  722.     (settooltype "DONOTWAIT" )
  723. )
  724.  
  725. (complete 97)(working #working_startup)            ; ===== Add commands to s:user-startup
  726.  
  727. (set to-be-added-to-startup
  728. (cat "RUN <NIL: >NIL: " (tackon target "SwazBlanker") " BLANKKEY=\"" theblankkey "\" CX_POPKEY=\"" thepopkey "\""
  729. ))
  730.  
  731. (startup "SwazBlanker"
  732.     (prompt  (cat #addcmds to-be-added-to-startup) )
  733.     (help #addhelp @startup-help)
  734.     (command to-be-added-to-startup)
  735. )
  736. (set startup_added 1)
  737.  
  738.  
  739. (complete 100)(working #working_fini)
  740.     ;************
  741.     ;*          *
  742.     ;* FINISHED *
  743.     ;*          *
  744.     ;************
  745.  
  746. ; =======================================================================
  747. ;   Cleanup
  748. ; =======================================================================
  749.  
  750. (makeassign "SwazBlanker" (safe))
  751.  
  752. (exit #goodbye "David Swasbrook,\nPO Box 54134,\nBucklands Beach,\nAuckland,\nNEW ZEALAND.\n")
  753.  
  754.